home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / OSAComp.p < prev    next >
Encoding:
Text File  |  1997-08-12  |  1.6 KB  |  66 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        OSAComp.p
  3.  
  4.      Contains:    AppleScript Component Implementor's Interfaces.
  5.  
  6.      Version:    Technology:    AppleScript 1.1
  7.                  Release:    Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1992-1997, 1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT OSAComp;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __OSACOMP__}
  28. {$SETC __OSACOMP__ := 1}
  29.  
  30. {$I+}
  31. {$SETC OSACompIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __AEDATAMODEL__}
  38. {$I AEDataModel.p}
  39. {$ENDC}
  40.  
  41.  
  42. {$PUSH}
  43. {$ALIGN MAC68K}
  44. {$LibExport+}
  45.  
  46. {*************************************************************************
  47.     Types and Constants
  48. *************************************************************************}
  49. {*************************************************************************
  50.     Routines for Associating a Storage Type with a Script Data Handle 
  51. *************************************************************************}
  52. FUNCTION OSAGetStorageType(scriptData: Handle; VAR dscType: DescType): OSErr;
  53. FUNCTION OSAAddStorageType(scriptData: Handle; dscType: DescType): OSErr;
  54. FUNCTION OSARemoveStorageType(scriptData: Handle): OSErr;
  55.  
  56. {$ALIGN RESET}
  57. {$POP}
  58.  
  59. {$SETC UsingIncludes := OSACompIncludes}
  60.  
  61. {$ENDC} {__OSACOMP__}
  62.  
  63. {$IFC NOT UsingIncludes}
  64.  END.
  65. {$ENDC}
  66.